/* ** Filename: HTMLThor.thor ** ** $VER: v1.31 (09.22.96) ** ** Author: Troy E. Bouchard ** ** EMail: tbouchar@ptialaska.net ** Webpage: http://www.ptialaska.net/~tbouchar ** */ /* Find our Thor Port and number! */ p = ' '||Address() || ' ' || show('P',,) ThorPort = pos(' THOR.',p) if ThorPort > 0 then ThorPort = word(substr(p,ThorPort+1),1) else do say "Can't seem to find the Thor port!" exit 10 End /* Load the BBSRead library up! */ if ~show('p', 'BBSREAD') then do address command "run >nil: `GetEnv THOR/THORPath`bin/LoadBBSRead" "WaitForPort BBSREAD" End /* change these to match your system! */ TB_WWW = 'A HREF="digest/' TB_EMail = 'A HREF="mailto:' TB_MSGPATH = 'T:' EXT = '.html' /* change this to .htm if you need to. */ /* aint ARexx just great? */ TB_WDAYS = 'Monday Tuesday Wednesday Thursday Friday Saturday Sunday' TB_MONTH = 'January February March April May June July August September October November December' options results Call GetPages Exit GetPages: Address BBSREAD 'GETBBSLIST stem "'BBSLIST'"' if(rc ~=0) then do Address(ThorPort) 'REQUESTNOTIFY TEXT "'BBSREAD.LASTERROR'" BT "_OK"' exit End Address(ThorPort) 'REQUESTLIST instem "'BBSLIST'" outstem "'TB_SYSTEM'" title "Selection:" DRAGSELECT MULTISELECT SIZEGADGET' if(rc ~= 0) then exit do i=1 to TB_SYSTEM.COUNT Address BBSREAD 'GETCONFLIST "'TB_SYSTEM.i'" CONFLIST' if(rc ~= 0) then do Address(ThorPort) 'REQUESTNOTIFY TEXT "'BBSREAD.LASTERROR'" BT "_OK"' exit End Address(ThorPort) 'REQUESTLIST instem "'CONFLIST'" title "Select conference on ' || TB_SYSTEM.i || ":" ||'" SIZEGADGET' if(rc ~= 0) then TB_CONFNAME = "" else TB_CONFNAME = result MyConf = Translate(TB_CONFNAME,," ","_") call open(out, TB_MSGPATH||MyConf||EXT, w) call writeln(out, ""MyConf||"") call writeln(out, "

"MyConf"

") call close(out) Address BBSREAD 'GETCONFDATA BBSName "'TB_SYSTEM.i'" ConfName "'TB_CONFNAME'" Stem CDATA' if(rc ~= 0) then do Address(ThorPort) 'REQUESTNOTIFY TEXT "'BBSREAD.LASTERROR'" BT "_OK"' exit End Address(ThorPort) 'OPENPROGRESS TITLE " HTMLThor v1.31" PT "Getting Pages..." AT "_Abort" PCW 30' if(rc ~= 0) then do 'CLOSEPROGRESS REQ' win 'REQUESTNOTIFY TEXT "'THOR.LASTERROR'" BT "_OK"' exit end win = result do j = CDATA.FIRSTMSG to CDATA.LASTMSG Address(ThorPort) msgtext = 'Saving Page 'j' of 'CDATA.LASTMSG' to 'TB_MSGPATH||MyConf||j||EXT 'UPDATEPROGRESS REQ "'win'" TOTAL "'CDATA.LASTMSG'" CURRENT "'j'" PT "'msgtext'"' if(rc ~= 0) then do 'CLOSEPROGRESS REQ' win win=0 leave end Drop HeaderInfo. Drop TextInfo. Address BBSREAD 'READBRMESSAGE "'TB_SYSTEM.i'" "'TB_CONFNAME'" MSGNR "'j'" TextStem "'TextInfo'" HeadStem "'HeaderInfo'" DataStem "'MsgData'"' if(rc ~= 0) then do Address(ThorPort) 'CLOSEPROGRESS REQ' win 'REQUESTNOTIFY TEXT "'BBSREAD.LASTERROR'" BT "_OK"' Exit end if ~bittst(MsgData.FLAGS, 5) then do 'AMIGA2DATE "'HeaderInfo.CREATIONDATE'" Stem "'Time'"' if(rc ~= 0) then do Address(ThorPort) 'CLOSEPROGRESS REQ' win 'REQUESTNOTIFY TEXT "'BBSREAD.LASTERROR'" BT "_OK"' Exit end if(Time.WDAY == '0') then WKDays = 'Sunday' else WKDays = word(TB_WDAYS, Time.WDAY) MODays = word(TB_MONTH, Time.MONTH) if symbol('HeaderInfo.FROMADDR') = "VAR" then Addr = '<'TB_EMail || value('HeaderInfo.FROMADDR') || '">' if symbol('HeaderInfo.FROMNAME') = "VAR" then Name = value('HeaderInfo.FROMNAME') || '' if symbol('HeaderInfo.SUBJECT') = "VAR" then Subj = value('HeaderInfo.SUBJECT') call open(out, TB_MSGPATH||MyConf||EXT, a) call writeln(out,'From:'Addr||Name'
Subject:<'TB_WWW||MyConf||j||EXT'">'Subj||'.'||'

') call close(out) anterior=j-1 proxima=j+1 if anterior=0 then anterior=1 call open(out, TB_MSGPATH || MyConf || j || EXT, w) call writeln(out, ''MyConf||' - 'Subj||'') call writeln(out, '

'MyConf||'

') call writeln(out, 'Message created on:
'WKDays', 'MODays' 'Time.MDAY', 'Time.YEAR'') call writeln(out, '
From:'Addr||Name' ('HeaderInfo.FROMADDR')
Subject: 'Subj||'
') call writeln(out, '
|Previous Message | Next Message |
') call close(out) cnt = value('TextInfo.TEXT.COUNT') call open(out, TB_MSGPATH||MyConf||j||EXT, a) call writeln(out, '

') do n = 1 to cnt call writeln(out, value('TextInfo.TEXT.n')'
') end call writeln(out,'

| Previous Message | Next Message |
') call writeln(out,'Output created by HTMLThor v1.31
') call writeln(out,'Written by: Troy E. Bouchard, © 1996
') call writeln(out,"
") call close(out) end end call open(out, TB_MSGPATH||MyConf||EXT, a) call writeln(out,"") call close(out) end Address(ThorPort) 'REQUESTNOTIFY TEXT " We Are Done!\nHTML Files Copied!" BT "_Cool!"' 'CLOSEPROGRESS REQ' win Return